object DM_Controle: TDM_Controle
  OldCreateOrder = False
  Height = 479
  Width = 505
  object DSPControle: TDataSetProvider
    DataSet = SQLControle
    Left = 64
    Top = 72
  end
  object CDSControle: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'tabela'
        ParamType = ptInput
      end>
    ProviderName = 'DSPControle'
    Left = 64
    Top = 136
    object CDSControleVALOR: TIntegerField
      FieldName = 'VALOR'
      Origin = 'VALOR'
    end
    object CDSControleTABELA: TStringField
      FieldName = 'TABELA'
      Size = 100
    end
  end
  object SQLControle: TSQLDataSet
    CommandText = 'select * from controle where TABELA = :tabela'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'tabela'
        ParamType = ptInput
      end>
    SQLConnection = DataModule1.SQLConnection1
    Left = 64
    Top = 16
  end
end
